

If ProcessExists("Rogue Tools.exe") Then
	$f = 0
Else
	MsgBox(4096, "Rogue Tools?", "You need to be running Rogue Tools in order to use this control")
	Exit
EndIf

$filef = FileOpen(@ProgramFilesDir & "\burnersware\Rogue Tools\include\vars\fishvars.txt", 0)
$ring = FileReadLine($filef, 1)
$bucket = FileReadLine($filef, 2)
$cap = FileReadLine($filef, 3)
$leggings = FileReadLine($filef, 4)
$subligar = FileReadLine($filef, 5)
$p4ht = FileReadLine($filef, 6)
FileClose($filef)

Global $resa = @DesktopWidth
Global $resb = @DesktopHeight
Global $winadded = $resa + $resb

If $winadded <> 1400 And $winadded <> 1792 And $winadded <> 2304 And $winadded <> 2800 Then
	nowinres()
EndIf

GUICreate("Rogue Fishing", 550, 380, -1, -1, -1, $WS_EX_TOOLWINDOW + $WS_EX_TOPMOST)
GUICtrlCreatePic(@ProgramFilesDir & "\burnersware\Rogue Tools\Include\img\burnerssidebarfish.jpg", 0, 22, 155, 360)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUICtrlCreateGroup("Drop Items", 170, 80, 170, 170)
GUIStartGroup()
$dropring = GUICtrlCreateCheckbox("", 190, 100, 25, 15)
If $ring = 1 Then
	GUICtrlSetState(-1, $GUI_CHECKED)
EndIf
GUISetFont(12, 400,)
GUICtrlCreateLabel("Copper Ring", 220, 100, 115, 20)
GUIStartGroup()
GUISetFont(9, 400)
$dropbucket = GUICtrlCreateCheckbox("", 190, 130, 25, 15)
If $bucket = 1 Then
	GUICtrlSetState(-1, $GUI_CHECKED)
EndIf
GUISetFont(12, 400,)
GUICtrlCreateLabel("Rusty Bucket", 220, 130, 115, 20)
GUIStartGroup()
GUISetFont(9, 400)
$dropcap = GUICtrlCreateCheckbox("", 190, 160, 25, 15)
If $cap = 1 Then
	GUICtrlSetState(-1, $GUI_CHECKED)
EndIf
GUISetFont(12, 400,)
GUICtrlCreateLabel("Rusty Cap", 220, 160, 115, 20)
GUIStartGroup()
GUISetFont(9, 400)
$dropleggings = GUICtrlCreateCheckbox("", 190, 190, 25, 15)
If $leggings = 1 Then
	GUICtrlSetState(-1, $GUI_CHECKED)
EndIf
GUISetFont(12, 400,)
GUICtrlCreateLabel("Rusty Leggings", 220, 190, 115, 20)
GUIStartGroup()
GUISetFont(9, 400)
$dropsubligar = GUICtrlCreateCheckbox("", 190, 220, 25, 15)
If $subligar = 1 Then
	GUICtrlSetState(-1, $GUI_CHECKED)
EndIf
GUISetFont(12, 400,)
GUICtrlCreateLabel("Rusty Subligar", 220, 220, 115, 20)
GUISetFont(9, 400)
GUICtrlCreateGroup("", -99, -99, 1, 1)

GUICtrlCreateGroup("mdflows Fishing Bot HYPER", 365, 80, 170, 75)
GUISetFont(12, 400,)
GUICtrlCreateLabel("HYPER Bot", 415, 115, 115, 20)
GUIStartGroup()
GUISetFont(9, 400)
$enablep4ht = GUICtrlCreateCheckbox("", 385, 115, 25, 15)
If $p4ht = 1 Then
	GUICtrlSetState(-1, $GUI_CHECKED)
EndIf
GUICtrlCreateGroup("", -99, -99, 1, 1)


GUICtrlCreateGroup("", 465, 308, 80, 47)
$OKfish = GUICtrlCreateButton("RUN", 475, 325, 60, 25)
GUICtrlCreateGroup("", -99, -99, 1, 1)


GUISetState()
While 1
	$msg = GUIGetMsg()
	If $msg = $OKfish Then
		fishc()
		fishr()
	EndIf
	If $msg = $GUI_EVENT_CLOSE Then Exit
WEnd

Func fishc()
	$filefish = FileOpen(@ProgramFilesDir & "\burnersware\Rogue Tools\include\vars\fishvars.txt", 2)
	FileWrite($filefish, GUICtrlRead($dropring) & @CRLF)
	FileWrite($filefish, GUICtrlRead($dropbucket) & @CRLF)
	FileWrite($filefish, GUICtrlRead($dropcap) & @CRLF)
	FileWrite($filefish, GUICtrlRead($dropleggings) & @CRLF)
	FileWrite($filefish, GUICtrlRead($dropsubligar) & @CRLF)
	FileWrite($filefish, GUICtrlRead($enablep4ht) & @CRLF)
	FileClose($filefish)
EndFunc ;==>fishc

Func fishr()
	If GUICtrlRead($enablep4ht) = 1 Then
		Run("RFB Hyper.exe")
	Else
		Run("Rogue Fishing Bot.exe")
	EndIf

	Exit
EndFunc ;==>fishr

Func nowinres()
	MsgBox(4096, "Resolution Error", "Your current windows resolution is not supported _
			"  & @CRLF & " Please Switch To one of the four supported resolutions And restart Burners Rogue Tools Software"  & @CRLF & " These Include 800x600 & 1024x768 & 1280x1024 & 1600x1200 _
			" & @CRLF & " Thank You")
	Exit
EndFunc ;==>nowinres
